Osa Conservation: Piro Restoration Experiment

Chris Beirne

1 Map of survey locations

This document summarizes the movement locations for all active devices within Osa Conservation’s movement ecology project.

The following represents the data exploration for the data collected during the collaboration between Osa Conservation and Earthwatch for the project entitled:

A multi-taxa approach comparing the success of active tropical rainforest restoration with old-growth forest in Costa Rica.

Also known as:

The Piro Restoration Experiment

1.0.1 Study area and survey locations

The following map shows the locations of all the surveys included withing this project.

# # First, set a single categorical variable of interest from station covariates for summary graphs. If you do not have an appropriate category use "project_id".
# category <- "feature_type"
# 
# # We first convert this category to a factor with discrete levels
# dep[,category] <- factor(dep[,category])
# # then use the turbo() function to assign each level a color
# col.cat <- turbo(length(levels(dep[,category])))
# # then we apply it to the dataframe
# dep$colours <- col.cat[dep[,category]]

m <- leaflet() %>%
  addProviderTiles(providers$Esri.WorldImagery, group="Satellite") %>%  
  addTiles(group="Base") %>%     # Include a basemap option too
  addPolylines(data = trails, group = "trails", color="brown") %>% 
  addPolygons(data=plots, popup=plots$plot_id, group="plots") %>% 
  addCircleMarkers(lng=locs_db$longitude, lat=locs_db$latitude,
                   # Co lour the markers depending on the 'feature type'
                   #color=dep$colours,
                   # Add a popup of the placename and feature_type together
                   popup=paste(locs_db$plot_id, locs_db$original_treatment,
                        "<br>Long:",locs_db$longitude,
                        "<br>Lat:",locs_db$latitude),
                   group="survey_locs") %>%
  ## Add a legend explaining what is going on
  # addLegend("topleft", colors = col.cat,  labels = levels(dep[,category]),
  #                  title = category,
  #                  labFormat = labelFormat(prefix = "$"),
  #                  opacity = 1) %>%
  # 
  # add a layer control box to toggle between the layers
  addLayersControl(
                    baseGroups = c("Base", "Satellite"),
                    overlayGroups = c("plots","trails", "survey_locs"),
                    options = layersControlOptions(collapsed = FALSE)
      ) %>%
  addFullscreenControl()

m

1.0.2 Survey timeline